#!/usr/bin/perl
#mdmmod-lib.pl

do "../web-lib.pl";
&init_config();
%access = &get_module_acl();

#get-mdm-mod()
sub get_mdm_mod()
{
	open(FILE,$config{'mdmacl'})||die "open failed:$!\n";
	local @file=<FILE>;
	close(FILE);

	for($i=0;$i<@file;$i++){
		if ($file[$i]=~ /^mdm-mod/){
			if ($file[$i]=~ /server/){
				return("server");
			}else{
				return("client");
			}
		}
	}	

	return("client");
}

#save-mdm-mod(file,mod)
sub save_mdm_mod()
{
	open(FILE,$_[0])||die "open failed:$!\n";
	local @file=<FILE>;
	close(FILE);
	local $find=0;
	
	for($i=0;$i<@file;$i++){
		if ($file[$i]=~ /^mdm-mod/){
			$file[$i]= "mdm-mod=$_[1]\n";
			$find=1;
			last;
		}
	}

	if($find == 0){
		$file[$i]="mdm-mod=$_[1]\n";
	}
	
	open(FILE,">$_[0]");
	print FILE @file;
	close(FILE);	
}

1;